;
;	��������� ������� �� ����� ���� ���� ���������
;	-----------------------------------------
	org	100h
Start:	mov	ax,[AdrEnv]     ;�������� � DS
	mov	ds,ax		; �����-������� ����� ���������
	mov	ah,0eh		;0Eh - ������� ����� �������
	mov	bh,0		;������� �������� ������
	xor	di,di		;BX <- 0
.Next:	mov	al,[di]		;�������� ��������� ������
	cmp	al,0		;��������� �� 0
	jnz	.M1             ;������ �� 0
	mov	al,[di+1]	;�������� ��������� ����� 0 ������
	cmp	al,0		;��������� �� 0
	jz	.Exit		;���� ��� ������� 0 �� �������
	mov	al,0		;���� ���� ������ 0 �� ������� �� �����
.M1:	int	10h		;����� ������� �� �����
	inc	di		;����������� BX �� 1
	jmp	.Next		;��������� ��� ����. �������
.Exit:	mov	ax,4c00h	;������� � DOS
	int	21h		; � ����� ���������� 0
	absolute 2ch		;��������� ���� ����� �����-�������� 2Ch
AdrEnv	resb	2		;�����-������� ����� ���������
